home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  47 lines
  1. 100 rem *****************************
  2. 110 rem *                           *
  3. 120 rem * anzeige einer information *
  4. 130 rem *                           *
  5. 140 rem *      in einem window      *
  6. 150 rem *                           *
  7. 160 rem *****************************
  8. 170 rem *                           *
  9. 180 rem * start mit zufaelligem be- *
  10. 190 rem * schreiben des bildschirms *
  11. 200 rem * zur hervorhebung des win- *
  12. 210 rem * dows:'run' oder 'goto300' *
  13. 220 rem *                           *
  14. 230 rem * start ohne aenderung des  *
  15. 240 rem * bildschirms: goto 360     *
  16. 250 rem *                           *
  17. 260 rem * c16,c64,c128(40-z.-modus) *
  18. 270 rem *                           *
  19. 280 rem *****************************
  20. 290 :
  21. 300 rem bildschirm mit zufaelligen
  22. 310 rem zeichen beschreiben:
  23. 320 :
  24. 330 print chr$(147);:rem bildschirm loeschen
  25. 340 for f=1 to 950:print chr$(rnd(0)*48+48);:next f:rem 950 zufaellige zeichen
  26. 350 :
  27. 360 rem window ausgeben
  28. 370 rem ===============
  29. 380 :
  30. 390 rem cursor in 5. zeile bewegen
  31. 400 :
  32. 410 print "";:rem 'cursor home' ausfuehren
  33. 420 for f=1 to 4:print chr$(17);:next f:rem 4 zeilen ueberspringen
  34. 430 :
  35. 440 rem nun wird das window ausgegeben:
  36. 450 :
  37. 460 print "[176][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  38. 470 print "[221]>> window <<[221]";
  39. 480 print "[171][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  40. 490 print "[221]linke gr.:23[221]";
  41. 500 print "[221]rechte g.:36[221]";
  42. 510 print "[221]obere gr.: 5[221]";
  43. 520 print "[221]untere g.:12[221]";
  44. 530 print "[173][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  45. 540 :
  46. 550 get a$:if a$="" then 550
  47.